call serce
mvi d,8
petla:
   call przesun
   dcr d
jnz petla
hlt

przesun:
   lxi h,2000h
   mvi e,8
   petla2:
      call rotacja
   jnz  petla2
ret

rotacja:
   mov a,m   
   ral
   stc
   cmc
   mov m,a
   call zwieksz
   dcr e
ret

zwieksz:
   inx h
ret

serce:
   lxi h,2000h
   mvi m,00000000b
   inx h
   mvi m,00110110b
   inx h
   mvi m,01001001b
   inx h
   mvi m,01000001b
   inx h
   mvi m,00100010b
   inx h
   mvi m,00100010b
   inx h
   mvi m,00010100b
   inx h
   mvi m,00001000b
   inx h
   mvi m,00000000b
   inx h
ret
